gnus-msg.el (gnus-inews-insert-gcc): `C-x m' on a non-group line fixup

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index bac79f492bc5413c18bfecd7d9c1d8b3722b0d8b..b1f298bdb1641a988f43019899c43ffdd69d1e6f 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-msg.el (gnus-inews-insert-gcc): Don't do the alist stuff when we
+       don't have a current group.
+
 2012-04-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-msg.el (gnus-inews-insert-gcc): Protect against when we don't

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 507f0406ea1f8be3ee61b85a7708322929bfcce9..815bd9e44a6a868823e0846ea7df27f90a87c3fe 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1664,7 +1664,7 @@ this is a reply."
           ((functionp var)
            ;; A function.
            (funcall var group))
-          (t
+          (group
            ;; An alist of regexps/functions/forms.
            (while (and var
                        (not